home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas7.stk < prev    next >
Encoding:
Text File  |  1994-08-24  |  334 b   |  14 lines
  1. ;;; Widgets embedded in a canvas
  2.  
  3. (pack (canvas '.c1)
  4.       :expand #t 
  5.       :fill "both")
  6.  
  7. (button '.c1.b1 :text "Embedded button")
  8.  
  9. (.c1 'create 'rectangle 20 20 80 80 :fill "red")
  10. (.c1 'create 'rectangle 60 60 120 120 :fill "green")
  11. (.c1 'create 'rectangle 40 40 100 100 :fill "blue")
  12. (.c1 'create 'window 100 75 :window .c1.b1)
  13.  
  14.